home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Graphics / MagnifiCAD / ARexx / Get.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-19  |  439b  |  31 lines
  1. /* 
  2. **  Get.rexx 
  3. **
  4. **  Description: A test of the 'Get' command,
  5. **               showing current color, print axis and view.
  6. **
  7. **  Written by:  Anders Granli
  8. ** 
  9. **  Date:        11.10.96                
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. address 'MAGNIFICAD'
  15.  
  16. SAY
  17.  
  18. GETATTR COLORVALUE
  19. colorvalue = RESULT
  20. SAY "ColorValue:" colorvalue
  21.  
  22. GETATTR PRINTAXIS
  23. printaxis = RESULT
  24. SAY "PrintAxis:" printaxis
  25.  
  26. GETATTR VIEW
  27. view = RESULT
  28. SAY "View:" view
  29.  
  30. SAY
  31.